object frmMain: TfrmMain
  Left = 152
  Top = 139
  Width = 554
  Height = 482
  ActiveControl = memConnParams
  Caption = 'Mapping demo (implemented using IDAC)'
  Color = clBtnFace
  Constraints.MinHeight = 380
  Constraints.MinWidth = 530
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 546
    Height = 428
    ActivePage = tsConnection
    Align = alClient
    TabOrder = 0
    object tsConnection: TTabSheet
      Caption = 'Connection'
      object grbParamsMemo: TGroupBox
        Left = 6
        Top = 6
        Width = 524
        Height = 354
        Anchors = [akLeft, akTop, akRight, akBottom]
        Caption = ' Connection parameters '
        TabOrder = 0
        object memConnParams: TMemo
          Left = 12
          Top = 24
          Width = 500
          Height = 282
          Anchors = [akLeft, akTop, akRight, akBottom]
          ScrollBars = ssBoth
          TabOrder = 0
        end
        object btnLoadDefParams: TButton
          Left = 12
          Top = 317
          Width = 75
          Height = 24
          Anchors = [akLeft, akBottom]
          Caption = 'Defaults'
          TabOrder = 1
          OnClick = btnLoadDefParamsClick
        end
        object btnLoadParams: TButton
          Left = 93
          Top = 317
          Width = 75
          Height = 24
          Anchors = [akLeft, akBottom]
          Caption = 'Load...'
          TabOrder = 2
          OnClick = btnLoadParamsClick
        end
        object btnSaveParams: TButton
          Left = 174
          Top = 317
          Width = 75
          Height = 24
          Anchors = [akLeft, akBottom]
          Caption = 'Save...'
          TabOrder = 3
          OnClick = btnSaveParamsClick
        end
      end
      object btnConnect: TButton
        Left = 373
        Top = 371
        Width = 75
        Height = 24
        Anchors = [akRight, akBottom]
        Caption = 'Connect'
        TabOrder = 1
        OnClick = btnConnectClick
      end
      object btnDisconnect: TButton
        Left = 454
        Top = 371
        Width = 75
        Height = 24
        Anchors = [akRight, akBottom]
        Caption = 'Disconnect'
        Enabled = False
        TabOrder = 2
        OnClick = btnDisconnectClick
      end
    end
    object tsExecuteSQL: TTabSheet
      Caption = 'Execute SQL'
      ImageIndex = 2
      object Splitter: TSplitter
        Left = 0
        Top = 217
        Width = 538
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object plTop: TPanel
        Left = 0
        Top = 0
        Width = 538
        Height = 217
        Align = alTop
        BevelOuter = bvNone
        Constraints.MinHeight = 90
        TabOrder = 0
        object labelSQL: TLabel
          Left = 12
          Top = 6
          Width = 46
          Height = 13
          Caption = '&SQL text:'
          FocusControl = memSQL
        end
        object memSQL: TMemo
          Left = 12
          Top = 24
          Width = 512
          Height = 133
          Anchors = [akLeft, akTop, akRight, akBottom]
          Lines.Strings = (
            'select'
            '  1234567890.0123456789::decimal(20,10),'
            '  1234567890.015::money(20),'
            '  '#39'2005-01-01 12:34:56.12345'#39'::datetime year to fraction(5),'
            '  '#39'2005-01-01'#39'::datetime year to day,'
            '  '#39'12:12:11'#39'::datetime hour to second'
            'from'
            '  informix.systables'
            'where'
            '  tabid = 1')
          TabOrder = 0
        end
        object btnExecSQL: TButton
          Left = 93
          Top = 192
          Width = 75
          Height = 24
          Anchors = [akLeft, akBottom]
          Caption = '&Execute'
          Enabled = False
          TabOrder = 1
          OnClick = btnExecSQLClick
        end
        object chbUseMapping: TCheckBox
          Left = 12
          Top = 168
          Width = 140
          Height = 16
          Anchors = [akLeft, akBottom]
          Caption = 'Use Mapping'
          Checked = True
          State = cbChecked
          TabOrder = 2
          OnClick = chbUseMappingClick
        end
        object DBNavigator: TDBNavigator
          Left = 284
          Top = 192
          Width = 240
          Height = 25
          Anchors = [akRight, akBottom]
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
        end
        object btnOpen: TButton
          Left = 12
          Top = 192
          Width = 75
          Height = 24
          Anchors = [akLeft, akBottom]
          Caption = '&Open'
          Enabled = False
          TabOrder = 4
          OnClick = btnOpenClick
        end
      end
      object panelResults: TPanel
        Left = 0
        Top = 220
        Width = 538
        Height = 180
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object labelResults: TLabel
          Left = 12
          Top = 6
          Width = 39
          Height = 13
          Caption = '&Results:'
          Enabled = False
          FocusControl = DBGrid
        end
        object DBGrid: TDBGrid
          Left = 12
          Top = 24
          Width = 510
          Height = 147
          Anchors = [akLeft, akTop, akRight, akBottom]
          DataSource = frmDM.DataSource
          Enabled = False
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
        end
      end
    end
  end
  object MainMenu: TMainMenu
    Left = 42
    Top = 72
    object mmiFile: TMenuItem
      Caption = '&File'
      object mmiGoToLxC: TMenuItem
        Caption = 'Go to Luxena site'
        OnClick = mmiGoToLxCClick
      end
      object mmiDelimiter: TMenuItem
        Caption = '-'
      end
      object mmiExit: TMenuItem
        Caption = 'Exit'
        OnClick = mmiExitClick
      end
    end
    object mmiHelp: TMenuItem
      Caption = '&Help'
      object mmiAbout: TMenuItem
        Caption = 'About...'
        OnClick = mmiAboutClick
      end
    end
  end
end
